DELPHI8操作符重载的例子

unit WinForm;
　　interface
　　uses
　　System.Drawing, System.Collections, System.ComponentModel,
　　System.Windows.Forms, System.Data;
　　type
　　TWinForm = class(System.Windows.Forms.Form)
　　{$REGION \'Designer Managed Code\'}
　　strict private
　　/// <summary>
　　/// Required designer variable.
　　/// </summary>
　　Components: System.ComponentModel.Container;
　　Button1: System.Windows.Forms.Button;
　　/// <summary>
　　/// Required method for Designer support - do not modify
　　/// the contents of this method with the code editor.
　　/// </summary>
　　procedure InitializeComponent;
　　procedure Button1_Click(sender: System.Object; e: System.EventArgs);
　　{$ENDREGION}
　　strict protected
　　/// <summary>
　　/// Clean up any resources being used.
　　/// </summary>
　　procedure Dispose(Disposing: Boolean); override;
　　private
　　{ Private Declarations }
　　public
　　constructor Create;
　　end;
　　//写成类也可以,这里我用了记录。由于记录是值类型省去了创建实例的麻烦
　　TClassTest=record
　　public
　　FA:Integer;
　　//重载了“+”操作符
　　class operator add(A,B:TClassTest):TClassTest;
　　end;
　　[assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
　　implementation
　　{$REGION \'Windows Form Designer generated code\'}
　　/// <summary>
　　/// Required method for Designer support -- do not modify
　　/// the contents of this method with the code editor.
　　/// </summary>
　　procedure TWinForm.InitializeComponent;
　　begin
　　Self.Button1 := System.Windows.Forms.Button.Create;
　　Self.SuspendLayout;
　　//
　　// Button1
　　//
　　Self.Button1.Location := System.Drawing.Point.Create(96, 88);
　　Self.Button1.Name := \'Button1\';
　　Self.Button1.Size := System.Drawing.Size.Create(392, 112);
　　Self.Button1.TabIndex := 0;
　　Self.Button1.Text := \'Button1\';
　　Include(Self.Button1.Click, Self.Button1_Click);
　　//
　　// TWinForm
　　//